(:
  A procedure to select the contents of the "chat" interventions
:)
declare boundary-space strip;
import module namespace
    jj = "http://kumquat.emse.fr/utilitaires"
    at "jjutils.xq" ; 


<display>{

let $t := $arguments[1]

for $item in doc($t)/display/item[info[@name="type"]="textboard"]
let $diff := xs:integer($item/info[@name="character-difference"]/integer/text())
	where $diff le 0
	return $item


}</display>
